home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / tex / texsrc.arc / TEX5.C < prev    next >
C/C++ Source or Header  |  1988-09-14  |  64KB  |  2,090 lines
  1. overlay "tex5"
  2. #define EXTERN extern
  3. #include "texd.h"
  4.  
  5. zappendtovlis ( b ) 
  6. halfword b ; 
  7. {r_appendtovlis 
  8.   scaled d ; 
  9.   halfword p ; 
  10.   if ( curlist .auxfield > - 65536000 ) 
  11.   {
  12.     d = mem [(long) eqtb [ 3527 ] .hh .v.RH + 1 ] .cint - curlist .auxfield - mem [(long) 
  13.     b + 3 ] .cint ; 
  14.     if ( d < eqtb [ 5703 ] .cint ) 
  15.     p = newparamglue ( 0 ) ; 
  16.     else { 
  17.       p = newskipparam ( 1 ) ; 
  18.       mem [(long) tempptr + 1 ] .cint = d ; 
  19.     } 
  20.     mem [(long) curlist .tailfield ] .hh .v.RH = p ; 
  21.     curlist .tailfield = p ; 
  22.   } 
  23.   mem [(long) curlist .tailfield ] .hh .v.RH = b ; 
  24.   curlist .tailfield = b ; 
  25.   curlist .auxfield = mem [(long) b + 2 ] .cint ; 
  26. } 
  27. halfword newnoad () { register halfword Result; r_newnoad 
  28.   long p ; 
  29.   p = getnode ( 4 ) ; 
  30.   mem [  p ] .hh.b0 = 16 ; 
  31.   mem [  p ] .hh.b1 = 0 ; 
  32.   mem [  p + 1 ] .hh = emptyfield ; 
  33.   mem [  p + 3 ] .hh = emptyfield ; 
  34.   mem [  p + 2 ] .hh = emptyfield ; 
  35.   Result = p ; 
  36.   return(Result) ; 
  37. } 
  38. halfword znewstyle ( s ) 
  39. smallnumber s ; 
  40. {register halfword Result; r_newstyle 
  41.  long p ; 
  42.   p = getnode ( 3 ) ; 
  43.   mem [  p ] .hh.b0 = 14 ; 
  44.   mem [  p ] .hh.b1 = s ; 
  45.   mem [  p + 1 ] .cint = 0 ; 
  46.   mem [  p + 2 ] .cint = 0 ; 
  47.   Result = p ; 
  48.   return(Result) ; 
  49. } 
  50. halfword newchoice () { register halfword Result; r_newchoice 
  51.   long p ; 
  52.   p = getnode ( 3 ) ; 
  53.   mem [  p ] .hh.b0 = 15 ; 
  54.   mem [  p ] .hh.b1 = 0 ; 
  55.   mem [  p + 1 ] .hh .v.LH = 0 ; 
  56.   mem [  p + 1 ] .hh .v.RH = 0 ; 
  57.   mem [  p + 2 ] .hh .v.LH = 0 ; 
  58.   mem [  p + 2 ] .hh .v.RH = 0 ; 
  59.   Result = p ; 
  60.   return(Result) ; 
  61. } 
  62. showinfo () { r_showinfo 
  63.   shownodelist ( mem [(long) tempptr ] .hh .v.LH ) ; 
  64. } 
  65. halfword zfractionrule ( t ) 
  66. scaled t ; 
  67. {register halfword Result; r_fractionrule 
  68.   halfword p ; 
  69.   p = newrule () ; 
  70.   mem [(long) p + 3 ] .cint = t ; 
  71.   mem [(long) p + 2 ] .cint = 0 ; 
  72.   Result = p ; 
  73.   return(Result) ; 
  74. } 
  75. halfword zoverbar ( b , k , t ) 
  76. halfword b ; 
  77. scaled k , t ; 
  78. {register halfword Result; r_overbar 
  79.   halfword p, q ; 
  80.   p = newkern ( k ) ; 
  81.   mem [(long) p ] .hh .v.RH = b ; 
  82.   q = fractionrule ( t ) ; 
  83.   mem [(long) q ] .hh .v.RH = p ; 
  84.   p = newkern ( t ) ; 
  85.   mem [(long) p ] .hh .v.RH = q ; 
  86.   Result = vpackage ( p , 0 , 1 , 1073741823 ) ; 
  87.   return(Result) ; 
  88. } 
  89. halfword zcharbox ( f , c ) 
  90. internalfont f ; 
  91. quarterword c ; 
  92. {register halfword Result; r_charbox 
  93.   fourquarters q ; 
  94.   eightbits hd ; 
  95.   halfword b, p ; 
  96.   q = fontinfo [ charbase [ f ] + c ] .qqqq ; 
  97.   hd = q .b1 ; 
  98.   b = newnullbox () ; 
  99.   mem [(long) b + 1 ] .cint = fontinfo [ widthbase [ f ] + q .b0 ] .cint + fontinfo 
  100.   [ italicbase [ f ] + ( q .b2 ) / 4 ] .cint ; 
  101.   mem [(long) b + 3 ] .cint = fontinfo [ heightbase [ f ] + ( hd ) / 16 ] .cint ; 
  102.   mem [(long) b + 2 ] .cint = fontinfo [ depthbase [ f ] + ( hd ) % 16 ] .cint ; 
  103.   p = getavail () ; 
  104.   mem [(long) p ] .hh.b1 = c ; 
  105.   mem [(long) p ] .hh.b0 = f ; 
  106.   mem [(long) b + 5 ] .hh .v.RH = p ; 
  107.   Result = b ; 
  108.   return(Result) ; 
  109. } 
  110. zstackintobox ( b , f , c ) 
  111. halfword b ; 
  112. internalfont f ; 
  113. quarterword c ; 
  114. {r_stackintobox 
  115.   halfword p ; 
  116.   p = charbox ( f , c ) ; 
  117.   mem [(long) p ] .hh .v.RH = mem [(long) b + 5 ] .hh .v.RH ; 
  118.   mem [(long) b + 5 ] .hh .v.RH = p ; 
  119.   mem [(long) b + 3 ] .cint = mem [(long) p + 3 ] .cint ; 
  120. } 
  121. scaled zheightplusde ( f , c ) 
  122. internalfont f ; 
  123. quarterword c ; 
  124. {register scaled Result; r_heightplusde 
  125.   fourquarters q ; 
  126.   eightbits hd ; 
  127.   q = fontinfo [ charbase [ f ] + c ] .qqqq ; 
  128.   hd = q .b1 ; 
  129.   Result = fontinfo [ heightbase [ f ] + ( hd ) / 16 ] .cint + fontinfo [ 
  130.   depthbase [ f ] + ( hd ) % 16 ] .cint ; 
  131.   return(Result) ; 
  132. } 
  133. halfword zvardelimiter ( d , s , v ) 
  134. halfword d ; 
  135. smallnumber s ; 
  136. scaled v ; 
  137. {/* 40 22 */ register halfword Result; r_vardelimiter 
  138.   halfword b ; 
  139.   internalfont f, g ; 
  140.   quarterword c, x, y ; 
  141.   integer m, n ; 
  142.   scaled u ; 
  143.   scaled w ; 
  144.   fourquarters q ; 
  145.   eightbits hd ; 
  146.   fourquarters r ; 
  147.   smallnumber z ; 
  148.   boolean largeattempt ; 
  149.   f = 0 ; 
  150.   w = 0 ; 
  151.   largeattempt = false ; 
  152.   z = mem [(long) d ] .qqqq .b0 ; 
  153.   x = mem [(long) d ] .qqqq .b1 ; 
  154.   while ( true ) { 
  155.     if ( ( z != 0 ) || ( x != 0 ) ) 
  156.     {
  157.       z = z + s + 16 ; 
  158.       do { z = z - 16 ; 
  159.     g = eqtb [ 4579 + z ] .hh .v.RH ; 
  160.     if ( g != 0 ) 
  161.     {
  162.       y = x ; 
  163.       lab22: if ( ( y >= fontbc [ g ] ) && ( y <= fontec [ g ] ) ) 
  164.       {
  165.         q = fontinfo [ charbase [ g ] + y ] .qqqq ; 
  166.         if ( ( q .b0 > 0 ) ) 
  167.         {
  168.           if ( ( ( q .b2 ) % 4 ) == 3 ) 
  169.           {
  170.         f = g ; 
  171.         c = y ; 
  172.         goto lab40 ; 
  173.           } 
  174.           hd = q .b1 ; 
  175.           u = fontinfo [ heightbase [ g ] + ( hd ) / 16 ] .cint + fontinfo 
  176.           [ depthbase [ g ] + ( hd ) % 16 ] .cint ; 
  177.           if ( u > w ) 
  178.           {
  179.         f = g ; 
  180.         c = y ; 
  181.         w = u ; 
  182.         if ( u >= v ) 
  183.         goto lab40 ; 
  184.           } 
  185.           if ( ( ( q .b2 ) % 4 ) == 2 ) 
  186.           {
  187.         y = q .b3 ; 
  188.         goto lab22 ; 
  189.           } 
  190.         } 
  191.       } 
  192.     } 
  193.       } while ( ! ( z < 16 ) ) ; 
  194.     } 
  195.     if ( largeattempt ) 
  196.     goto lab40 ; 
  197.     largeattempt = true ; 
  198.     z = mem [(long) d ] .qqqq .b2 ; 
  199.     x = mem [(long) d ] .qqqq .b3 ; 
  200.   } 
  201.   lab40: if ( f != 0 ) 
  202.   if ( ( ( q .b2 ) % 4 ) == 3 ) 
  203.   {
  204.     b = newnullbox () ; 
  205.     mem [(long) b ] .hh.b0 = 1 ; 
  206.     r = fontinfo [ extenbase [ f ] + q .b3 ] .qqqq ; 
  207.     c = r .b3 ; 
  208.     u = heightplusde ( f , c ) ; 
  209.     w = 0 ; 
  210.     q = fontinfo [ charbase [ f ] + c ] .qqqq ; 
  211.     mem [(long) b + 1 ] .cint = fontinfo [ widthbase [ f ] + q .b0 ] .cint + 
  212.     fontinfo [ italicbase [ f ] + ( q .b2 ) / 4 ] .cint ; 
  213.     c = r .b2 ; 
  214.     if ( c != 0 ) 
  215.     w = w + heightplusde ( f , c ) ; 
  216.     c = r .b1 ; 
  217.     if ( c != 0 ) 
  218.     w = w + heightplusde ( f , c ) ; 
  219.     c = r .b0 ; 
  220.     if ( c != 0 ) 
  221.     w = w + heightplusde ( f , c ) ; 
  222.     n = 0 ; 
  223.     if ( u > 0 ) 
  224.     while ( w < v ) { 
  225.       w = w + u ; 
  226.       incr ( n ) ; 
  227.       if ( r .b1 != 0 ) 
  228.       w = w + u ; 
  229.     } 
  230.     c = r .b2 ; 
  231.     if ( c != 0 ) 
  232.     stackintobox ( b , f , c ) ; 
  233.     c = r .b3 ; 
  234.     for ( m = 1 ; m <= n ; m ++ ) 
  235.     stackintobox ( b , f , c ) ; 
  236.     c = r .b1 ; 
  237.     if ( c != 0 ) 
  238.     {
  239.       stackintobox ( b , f , c ) ; 
  240.       c = r .b3 ; 
  241.       for ( m = 1 ; m <= n ; m ++ ) 
  242.       stackintobox ( b , f , c ) ; 
  243.     } 
  244.     c = r .b0 ; 
  245.     if ( c != 0 ) 
  246.     stackintobox ( b , f , c ) ; 
  247.     mem [(long) b + 2 ] .cint = w - mem [(long) b + 3 ] .cint ; 
  248.   } 
  249.   else b = charbox ( f , c ) ; 
  250.   else { 
  251.     b = newnullbox () ; 
  252.     mem [(long) b + 1 ] .cint = eqtb [ 5712 ] .cint ; 
  253.   } 
  254.   mem [(long) b + 4 ] .cint = half ( mem [(long) b + 3 ] .cint - mem [(long) b + 2 ] .cint ) - 
  255.   fontinfo [ 22 + parambase [ eqtb [ 4581 + s ] .hh .v.RH ] ] .cint ; 
  256.   Result = b ; 
  257.   return(Result) ; 
  258. } 
  259. halfword zrebox ( b , w ) 
  260. halfword b ; 
  261. scaled w ; 
  262. {register halfword Result; r_rebox 
  263.   halfword p ; 
  264.   internalfont f ; 
  265.   scaled v ; 
  266. fourquarters qi;
  267.   if ( ( mem [(long) b + 1 ] .cint != w ) && ( mem [(long) b + 5 ] .hh .v.RH != 0 ) ) 
  268.   {
  269.     if ( mem [(long) b ] .hh.b0 == 1 ) 
  270.     b = hpack ( b , 0 , 1 ) ; 
  271.     p = mem [(long) b + 5 ] .hh .v.RH ; 
  272.     if ( ( ( p >= himemmin ) ) && ( mem [(long) p ] .hh .v.RH == 0 ) ) 
  273.     {
  274.       f = mem [(long) p ] .hh.b0 ; 
  275. /*      v = fontinfo [ widthbase [ f ] + fontinfo [ charbase [ f ] + mem [(long) p ] 
  276.       .hh.b1 ] .qqqq .b0 ] .cint ; */
  277.   qi = fontinfo [ charbase [ f ] + mem [(long) p ]  .hh.b1 ] .qqqq;
  278.       v = fontinfo [ widthbase [ f ] +qi.b0 ] .cint ;
  279.       if ( v != mem [(long) b + 1 ] .cint ) 
  280.       mem [(long) p ] .hh .v.RH = newkern ( mem [(long) b + 1 ] .cint - v ) ; 
  281.     } 
  282.     freenode ( b , 7 ) ; 
  283.     b = newglue ( 12 ) ; 
  284.     mem [(long) b ] .hh .v.RH = p ; 
  285.     while ( mem [(long) p ] .hh .v.RH != 0 ) p = mem [(long) p ] .hh .v.RH ; 
  286.     mem [(long) p ] .hh .v.RH = newglue ( 12 ) ; 
  287.     Result = hpack ( b , w , 0 ) ; 
  288.   } 
  289.   else { 
  290.     mem [(long) b + 1 ] .cint = w ; 
  291.     Result = b ; 
  292.   } 
  293.   return(Result) ; 
  294. } 
  295. halfword zmathglue ( g , m ) 
  296. halfword